home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / doc / doc-com.el < prev    next >
Lisp/Scheme  |  1988-05-04  |  462b  |  23 lines
  1.  
  2. (load-library "find-doc")
  3. (if (file-exists-p ".edoc")(load ".edoc"))
  4. (setq args (cdr (cdr (cdr command-line-args))))
  5. (cond ((equal (car args) "-k")
  6.        (snarf-doc (expand-file-name (car (cdr args)))))
  7.       (t
  8.     (setq out (expand-file-name "DOC"))
  9.     (if (file-exists-p out)
  10.         (delete-file out))
  11.     (let ((buf (generate-new-buffer "joe")))
  12.       (switch-to-buffer buf)
  13.       (prin1 command-line-args buf ))
  14.     (make-all-doc out args)
  15.     (snarf-doc out)))
  16.  
  17.  
  18.  
  19.  
  20.  
  21.     
  22.     
  23.